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Fig. 2: Physical Deployment of System - Web Farm 
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Figure 9 
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Figure 11 
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* corecalc.prc 

* Procedure to perform core calculations as needed 

* when called, yam proc will provide "receptacle* params to be passed back 

PARAMETERS mpor z , nv_n\k C , m_r i s k , irpwr . mi ssue 

* mport = Stock, Future, Option, All, Position 

* E*_nOct , m„nsk = pass back for mktval, risk, power 

* nussue = specific position zo check (eg: IBM) 



IF mport = "P* checking position 

missue - LEFT(nissue+SPACE(10J , 101 

ELSE 

missue - SPACE (10) 
EKDIF 

f 

ms elect = SELECT {) 
SELECT portfol 
if eofU 

mProwHold = 0 

else 

mProwHold = recno ( ) 

endi £ 

W m_srnkt = 0 

i£\ rtusrisk * 0 



nufrisk = 0 
nuomkt = 0 
n\_orisk = 0 
m_irakt = 0 
m_irisk = 0 
xO-ongs = 0 
m_shorts = 0 
GO TOP 



■tr s 
*V4 



Fig. 
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DO WHILE -NOT- EOF() 

x_imatch = ( stock » missue ) . t. or result 

**** These two vars are for individual issue values, rest are sums 

mlsVal = 0 

mlsDolrisk = 0 

DO CASE 

CASE Sfo - "S" JUST STOCKS 

inlsVal - FxConv ( shares*! as t_sale, stock) 
IF port£ol->short 

m_s:rJct = rr^smxt - mlsVal 

mlsDolrisk = FxConv(shares*A3S(stop-last_sale) + corn;. in* shares, stock) 
m_shorts = m_shorts + mlsVal 

ELSE 

n^smkt = rn_smkt + mlsVal 

mlsDolrisk = FxConvf shares *ABS( las t_sale -stop) ♦ conntin* shares, stock) 
m_longs = :r\_longs + mlsVal 
ENDIF 

ir w srisk ■ ro_snsk + mlsDolRisk 
IF m_iiratch 

m_irokt = ra_imkt + mlsVal 

m_irisk - m_irisk + mlsDolrisk 
ENDIF 

CASE sfo = "F * JUST FUTURES 

IF porcfol->short 

nasVai = FxConvl (buy_pr ice -las t_sale) * shares* gear, stock) 

ELSE 

mlsVal * PxComM (las t_sale-buy_pr ice) *shares* gear, stock) 
ENDIF 

r\_tnOct * n_fmkt + mlsVal 
IF portiol->short 

mlsDolrisk = FxConv (sha res *ABS (stop- las t_sale) *gear + 
(conm_ in* shares) , stock) 

m_frisk = m_frisk + mlsDolrisk 

ELSE 

mlsDolrisk = FxConv ( shares * ABS (las t„sale- stop) *gear + 
{comm_in* shares) , stock) 

m_frisk - nufrisk + mlsDolRisk 

ENDIF 

IF m__imatch 

m_irnkt = nuimkt + mlsVal 

m_irisk = m_irisk + mlsDolrisk 
ENDIF 

CASE sfo = "0* OUST OPTIONS 

mlsVal = FxConv (shares* las t_sale* 100, stock) 
IF portfol->short 

n\_amkt - m_omkt - mlsVal 

mlsDolrisk • FxConv-(100*shares*ABS(stop-last w sale) + < coanuin* shares ) , stock) 
nuorisk = m_orisk + mlsDolrisk 
nushorts = nushorts + mlsVal 
ELSE 

s_pokt c m_omkt + mlsVal 

mlsDolrisk « ExConvaOO*ehares*ABS{lafit_sale-stop) ♦ (connuin* shares) , stock) 
nLPrisk * m_ori sk + mlsDolrisk 
m_longs «= m_longe + mis Vol - 
ENDIF 

IF nuimatch 

m_imkt - m_imkt + mlsVal 
nuirisk e m_iriek + mlsDolrisk 
ENDIF 
ENDCASE 
SKIP 
ENDDO 



Fig. 2j 
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DO CASE 



CASE rrport 




ALL /TOTAL EVERYTHING 


:r<_jnkt = 


n_sjrJct - 


m_£mkc t rr\_oxikc 


ir^risk 


- n\_srisk 


+ m_f risk + m_orisk 


CASE nport 


= -S" 


JUST STOCKS 


nurnkt = 


Husrrckt 




n\_rtsk 


= m_srisk 




CASE nport 


= 


JUST FUTURES 




jp w fndct 




ir^_nsk 


= rrufrisk 




CASE rrport 


= -o- 


JUST OPTIONS 


ir w mkt = 


jr w oo3ct 




ir w nsk 


- n>_onsk 




CASE rrport 


= -P' 


JUST INDIVIDUAL POSITIONS 


nuiukt * 








- iH_irisk 





EMDCASE 



mpwr = (2* (racdbalance+inwcibalance+m_longs-3i_shorcs) J - n_ longs - m_shorts 



sele porcfol 
if mProwHoid > 0 
j"1 goto (mProwHolc) 

endif 



*r?3 

RETURN 



*r?3 



SELECT (mselect) 
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Figure 25 
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Figure 27 
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Figure 28 
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Figure 29 
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